/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / Form / Mod / Cmds

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 04 43 6d 64 73 00 00 | 00 00 00 00 00 00 00 00 |..Cmds..|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 6f 4f 44 43 6f 62 6e | 46 01 00 00 00 00 00 00 |.oODCobn|F.......|
|00000050| 00 00 00 00 00 2a 3e 00 | 00 01 3e a2 49 9f 1e ad |.....*>.|..>.I...|
|00000060| 7e bf 88 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |~.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ce f5 00 00 |........|........|
|00000080| 43 44 4f 6f 00 00 00 00 | 82 f1 44 6f 63 75 6d 65 |CDOo....|..Docume|
|00000090| 6e 74 73 2e 53 74 64 44 | 6f 63 75 6d 65 6e 74 44 |nts.StdD|ocumentD|
|000000a0| 65 73 63 00 f1 44 6f 63 | 75 6d 65 6e 74 73 2e 44 |esc..Doc|uments.D|
|000000b0| 6f 63 75 6d 65 6e 74 44 | 65 73 63 00 f1 43 6f 6e |ocumentD|esc..Con|
|000000c0| 74 61 69 6e 65 72 73 2e | 56 69 65 77 44 65 73 63 |tainers.|ViewDesc|
|000000d0| 00 f1 56 69 65 77 73 2e | 56 69 65 77 44 65 73 63 |..Views.|ViewDesc|
|000000e0| 00 f0 53 74 6f 72 65 73 | 2e 53 74 6f 72 65 44 65 |..Stores|.StoreDe|
|000000f0| 73 63 00 00 00 00 00 00 | 00 00 00 07 00 00 00 bb |sc......|........|
|00000100| 29 00 00 00 00 00 83 f1 | 44 6f 63 75 6d 65 6e 74 |).......|Document|
|00000110| 73 2e 4d 6f 64 65 6c 44 | 65 73 63 00 f1 43 6f 6e |s.ModelD|esc..Con|
|00000120| 74 61 69 6e 65 72 73 2e | 4d 6f 64 65 6c 44 65 73 |tainers.|ModelDes|
|00000130| 63 00 f1 4d 6f 64 65 6c | 73 2e 4d 6f 64 65 6c 44 |c..Model|s.ModelD|
|00000140| 65 73 63 00 f1 53 74 6f | 72 65 73 2e 45 6c 65 6d |esc..Sto|res.Elem|
|00000150| 44 65 73 63 00 f2 04 00 | 00 00 00 00 00 00 09 29 |Desc....|.......)|
|00000160| 00 00 09 00 00 00 01 29 | 00 00 00 00 00 00 00 82 |.......)|........|
|00000170| f1 54 65 78 74 56 69 65 | 77 73 2e 53 74 64 56 69 |.TextVie|ws.StdVi|
|00000180| 65 77 44 65 73 63 00 f1 | 54 65 78 74 56 69 65 77 |ewDesc..|TextView|
|00000190| 73 2e 56 69 65 77 44 65 | 73 63 00 f2 02 00 00 00 |s.ViewDe|sc......|
|000001a0| 00 00 00 00 00 00 00 00 | 07 00 00 00 ab 28 00 00 |........|.....(..|
|000001b0| 00 00 00 83 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|000001c0| 53 74 64 4d 6f 64 65 6c | 44 65 73 63 00 f1 54 65 |StdModel|Desc..Te|
|000001d0| 78 74 4d 6f 64 65 6c 73 | 2e 4d 6f 64 65 6c 44 65 |xtModels|.ModelDe|
|000001e0| 73 63 00 f2 06 00 00 00 | 00 00 00 00 b1 26 00 00 |sc......|.....&..|
|000001f0| 0f 00 00 00 a9 26 00 00 | 00 00 00 00 00 00 3a 02 |.....&..|......:.|
|00000200| 00 00 00 82 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|00000210| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000220| 04 00 00 00 00 00 00 00 | 2f 00 00 00 00 00 00 00 |........|/.......|
|00000230| 22 00 00 00 00 00 00 00 | 00 01 00 00 00 00 48 65 |".......|......He|
|00000240| 6c 76 65 74 69 63 61 00 | 7c be 01 00 00 00 00 00 |lvetica.||.......|
|00000250| 90 01 00 00 00 00 11 00 | 00 00 01 82 f2 0d 00 00 |........|........|
|00000260| 00 00 00 00 00 3b 00 00 | 00 00 00 00 00 22 00 00 |.....;..|....."..|
|00000270| 00 00 00 00 00 00 01 00 | 00 00 00 48 65 6c 76 65 |........|...Helve|
|00000280| 74 69 63 61 00 7c be 01 | 00 01 00 00 00 90 01 00 |tica.|..|........|
|00000290| 00 00 00 09 00 00 00 01 | 00 00 00 00 c4 8e 07 00 |........|........|
|000002a0| b4 21 02 00 82 f1 53 74 | 64 53 74 61 6d 70 73 2e |.!....St|dStamps.|
|000002b0| 53 74 64 56 69 65 77 44 | 65 73 63 00 f2 03 00 00 |StdViewD|esc.....|
|000002c0| 00 00 00 00 00 2d 00 00 | 00 00 00 00 00 10 00 00 |.....-..|........|
|000002d0| 00 00 00 00 cc 07 03 00 | 1b 00 09 00 30 00 37 00 |........|....0.7.|
|000002e0| 00 01 03 00 00 00 00 13 | 02 00 00 01 29 00 00 00 |........|....)...|
|000002f0| 00 90 05 00 00 02 82 f2 | 0d 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 22 00 00 00 00 00 00 00 |........|".......|
|00000310| 00 01 00 00 00 00 48 65 | 6c 76 65 74 69 63 61 00 |......He|lvetica.|
|00000320| 7c be 01 00 00 00 00 00 | bc 02 00 00 00 00 09 00 ||.......|........|
|00000330| 00 00 00 4d 01 00 00 02 | 0a 00 00 00 00 50 01 00 |...M....|.....P..|
|00000340| 00 02 08 00 00 00 00 4a | 01 00 00 02 0b 00 00 00 |.......J|........|
|00000350| 00 53 01 00 00 02 0a 00 | 00 00 00 53 01 00 00 02 |.S......|...S....|
|00000360| 0d 00 00 00 00 58 01 00 | 00 02 12 00 00 00 00 34 |.....X..|.......4|
|00000370| 03 00 00 02 06 00 00 00 | 00 1f 00 00 00 02 0b 00 |........|........|
|00000380| 00 00 00 75 02 00 00 02 | 0d 00 00 00 00 9b 01 00 |...u....|........|
|00000390| 00 02 09 00 00 00 00 21 | 01 00 00 02 06 00 00 00 |.......!|........|
|000003a0| 00 07 01 00 00 01 11 00 | 00 00 00 0d 01 00 00 02 |........|........|
|000003b0| 0a 00 00 00 00 04 00 00 | 00 01 14 00 00 00 00 f5 |........|........|
|000003c0| 00 00 00 02 09 00 00 00 | 00 04 00 00 00 01 16 00 |........|........|
|000003d0| 00 00 00 92 01 00 00 02 | 0c 00 00 00 00 04 00 00 |........|........|
|000003e0| 00 01 1d 00 00 00 00 2e | 03 00 00 00 0a 00 00 00 |........|........|
|000003f0| 00 1d 00 00 00 01 24 00 | 00 00 00 0d 00 00 00 02 |......$.|........|
|00000400| 0a 00 00 00 00 1a 00 00 | 00 01 3d 00 00 00 00 60 |........|..=....`|
|00000410| 00 00 00 02 0e 00 00 00 | 00 1a 00 00 00 01 3d 00 |........|......=.|
|00000420| 00 00 00 b0 00 00 00 02 | 0e 00 00 00 00 1a 00 00 |........|........|
|00000430| 00 01 3d 00 00 00 00 b7 | 00 00 00 ff 4d 4f 44 55 |..=.....|....MODU|
|00000440| 4c 45 20 46 6f 72 6d 43 | 6d 64 73 3b 0d 28 2a 20 |LE FormC|mds;.(* |
|00000450| 4f 6d 49 6e 63 20 02 20 | 2a 29 0d 0d 09 49 4d 50 |OmInc . |*)...IMP|
|00000460| 4f 52 54 0d 09 09 44 6f | 6d 61 69 6e 73 2c 20 50 |ORT...Do|mains, P|
|00000470| 6f 72 74 73 2c 20 4d 6f | 64 65 6c 73 2c 20 56 69 |orts, Mo|dels, Vi|
|00000480| 65 77 73 2c 20 43 6f 6e | 74 72 6f 6c 6c 65 72 73 |ews, Con|trollers|
|00000490| 2c 20 50 72 6f 70 65 72 | 74 69 65 73 2c 20 44 69 |, Proper|ties, Di|
|000004a0| 61 6c 6f 67 2c 20 43 6f | 6e 74 61 69 6e 65 72 73 |alog, Co|ntainers|
|000004b0| 2c 0d 09 09 43 6f 6e 74 | 72 6f 6c 73 2c 20 53 74 |,...Cont|rols, St|
|000004c0| 64 43 6d 64 73 2c 20 46 | 6f 72 6d 4d 6f 64 65 6c |dCmds, F|ormModel|
|000004d0| 73 2c 20 46 6f 72 6d 56 | 69 65 77 73 2c 20 46 6f |s, FormV|iews, Fo|
|000004e0| 72 6d 43 6f 6e 74 72 6f | 6c 6c 65 72 73 3b 0d 0d |rmContro|llers;..|
|000004f0| 09 43 4f 4e 53 54 0d 09 | 09 6c 65 66 74 20 3d 20 |.CONST..|.left = |
|00000500| 30 3b 20 74 6f 70 20 3d | 20 31 3b 20 72 69 67 68 |0; top =| 1; righ|
|00000510| 74 20 3d 20 32 3b 20 62 | 6f 74 74 6f 6d 20 3d 20 |t = 2; b|ottom = |
|00000520| 33 3b 20 72 6f 77 20 3d | 20 34 3b 20 63 6f 6c 75 |3; row =| 4; colu|
|00000530| 6d 6e 20 3d 20 35 3b 0d | 09 09 6d 69 6e 57 20 3d |mn = 5;.|..minW =|
|00000540| 20 32 30 20 2a 20 50 6f | 72 74 73 2e 6d 6d 3b 20 | 20 * Po|rts.mm; |
|00000550| 6d 69 6e 48 20 3d 20 35 | 20 2a 20 50 6f 72 74 73 |minH = 5| * Ports|
|00000560| 2e 6d 6d 3b 0d 09 09 6d | 61 78 57 20 3d 20 32 30 |.mm;...m|axW = 20|
|00000570| 30 20 2a 20 50 6f 72 74 | 73 2e 6d 6d 3b 20 6d 61 |0 * Port|s.mm; ma|
|00000580| 78 48 20 3d 20 35 30 20 | 2a 20 50 6f 72 74 73 2e |xH = 50 |* Ports.|
|00000590| 6d 6d 3b 0d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |mm;...PR|OCEDURE |
|000005a0| 46 69 6e 64 45 78 74 72 | 65 6d 61 20 28 63 3a 20 |FindExtr|ema (c: |
|000005b0| 46 6f 72 6d 43 6f 6e 74 | 72 6f 6c 6c 65 72 73 2e |FormCont|rollers.|
|000005c0| 43 6f 6e 74 72 6f 6c 6c | 65 72 3b 20 56 41 52 20 |Controll|er; VAR |
|000005d0| 6c 2c 20 74 2c 20 72 2c | 20 62 2c 20 68 2c 20 76 |l, t, r,| b, h, v|
|000005e0| 3a 20 4c 4f 4e 47 49 4e | 54 3b 0d 09 09 09 09 09 |: LONGIN|T;......|
|000005f0| 09 09 09 09 09 09 09 56 | 41 52 20 73 3a 20 46 6f |.......V|AR s: Fo|
|00000600| 72 6d 43 6f 6e 74 72 6f | 6c 6c 65 72 73 2e 4c 69 |rmContro|llers.Li|
|00000610| 73 74 29 3b 0d 09 09 56 | 41 52 20 6e 3a 20 49 4e |st);...V|AR n: IN|
|00000620| 54 45 47 45 52 3b 20 70 | 3a 20 46 6f 72 6d 43 6f |TEGER; p|: FormCo|
|00000630| 6e 74 72 6f 6c 6c 65 72 | 73 2e 20 4c 69 73 74 3b |ntroller|s. List;|
|00000640| 20 71 3a 20 46 6f 72 6d | 4d 6f 64 65 6c 73 2e 52 | q: Form|Models.R|
|00000650| 65 61 64 65 72 3b 20 77 | 3a 20 56 69 65 77 73 2e |eader; w|: Views.|
|00000660| 56 69 65 77 3b 0d 09 42 | 45 47 49 4e 09 28 2a 20 |View;..B|EGIN.(* |
|00000670| 74 68 65 72 65 20 69 73 | 20 61 74 20 6c 65 61 73 |there is| at leas|
|00000680| 74 20 6f 6e 65 20 76 69 | 65 77 20 73 65 6c 65 63 |t one vi|ew selec|
|00000690| 74 65 64 20 2a 29 0d 09 | 09 6c 20 3a 3d 20 4d 41 |ted *)..|.l := MA|
|000006a0| 58 28 4c 4f 4e 47 49 4e | 54 29 3b 20 74 20 3a 3d |X(LONGIN|T); t :=|
|000006b0| 20 4d 41 58 28 4c 4f 4e | 47 49 4e 54 29 3b 20 72 | MAX(LON|GINT); r|
|000006c0| 20 3a 3d 20 4d 49 4e 28 | 4c 4f 4e 47 49 4e 54 29 | := MIN(|LONGINT)|
|000006d0| 3b 20 62 20 3a 3d 20 4d | 49 4e 28 4c 4f 4e 47 49 |; b := M|IN(LONGI|
|000006e0| 4e 54 29 3b 0d 09 09 68 | 20 3a 3d 20 30 3b 20 76 |NT);...h| := 0; v|
|000006f0| 20 3a 3d 20 30 3b 20 6e | 20 3a 3d 20 30 3b 20 73 | := 0; n| := 0; s|
|00000700| 20 3a 3d 20 4e 49 4c 3b | 0d 09 09 71 20 3a 3d 20 | := NIL;|...q := |
|00000710| 63 2e 66 6f 72 6d 2e 4e | 65 77 52 65 61 64 65 72 |c.form.N|ewReader|
|00000720| 28 4e 49 4c 29 3b 20 71 | 2e 53 65 74 28 4e 49 4c |(NIL); q|.Set(NIL|
|00000730| 29 3b 20 71 2e 52 65 61 | 64 56 69 65 77 28 77 29 |); q.Rea|dView(w)|
|00000740| 3b 0d 09 09 57 48 49 4c | 45 20 77 20 23 20 4e 49 |;...WHIL|E w # NI|
|00000750| 4c 20 44 4f 0d 09 09 09 | 49 46 20 63 2e 49 73 53 |L DO....|IF c.IsS|
|00000760| 65 6c 65 63 74 65 64 28 | 77 29 20 54 48 45 4e 0d |elected(|w) THEN.|
|00000770| 09 09 09 09 49 4e 43 28 | 68 2c 20 71 2e 6c 29 3b |....INC(|h, q.l);|
|00000780| 20 49 4e 43 28 68 2c 20 | 71 2e 72 29 3b 20 49 4e | INC(h, |q.r); IN|
|00000790| 43 28 76 2c 20 71 2e 74 | 29 3b 20 49 4e 43 28 76 |C(v, q.t|); INC(v|
|000007a0| 2c 20 71 2e 62 29 3b 20 | 49 4e 43 28 6e 2c 20 32 |, q.b); |INC(n, 2|
|000007b0| 29 3b 0d 09 09 09 09 4e | 45 57 28 70 29 3b 20 70 |);.....N|EW(p); p|
|000007c0| 2e 6e 65 78 74 20 3a 3d | 20 73 3b 20 73 20 3a 3d |.next :=| s; s :=|
|000007d0| 20 70 3b 20 70 2e 76 69 | 65 77 20 3a 3d 20 77 3b | p; p.vi|ew := w;|
|000007e0| 0d 09 09 09 09 49 46 20 | 71 2e 6c 20 3c 20 6c 20 |.....IF |q.l < l |
|000007f0| 54 48 45 4e 20 6c 20 3a | 3d 20 71 2e 6c 20 45 4e |THEN l :|= q.l EN|
|00000800| 44 3b 0d 09 09 09 09 49 | 46 20 71 2e 74 20 3c 20 |D;.....I|F q.t < |
|00000810| 74 20 54 48 45 4e 20 74 | 20 3a 3d 20 71 2e 74 20 |t THEN t| := q.t |
|00000820| 45 4e 44 3b 0d 09 09 09 | 09 49 46 20 71 2e 72 20 |END;....|.IF q.r |
|00000830| 3e 20 72 20 54 48 45 4e | 20 72 20 3a 3d 20 71 2e |> r THEN| r := q.|
|00000840| 72 20 45 4e 44 3b 0d 09 | 09 09 09 49 46 20 71 2e |r END;..|...IF q.|
|00000850| 62 20 3e 20 62 20 54 48 | 45 4e 20 62 20 3a 3d 20 |b > b TH|EN b := |
|00000860| 71 2e 62 20 45 4e 44 0d | 09 09 09 45 4e 44 3b 0d |q.b END.|...END;.|
|00000870| 09 09 09 71 2e 52 65 61 | 64 56 69 65 77 28 77 29 |...q.Rea|dView(w)|
|00000880| 0d 09 09 45 4e 44 3b 0d | 09 09 68 20 3a 3d 20 68 |...END;.|..h := h|
|00000890| 20 44 49 56 20 6e 3b 20 | 76 20 3a 3d 20 76 20 44 | DIV n; |v := v D|
|000008a0| 49 56 20 6e 0d 09 45 4e | 44 20 46 69 6e 64 45 78 |IV n..EN|D FindEx|
|000008b0| 74 72 65 6d 61 3b 0d 0d | 09 50 52 4f 43 45 44 55 |trema;..|.PROCEDU|
|000008c0| 52 45 20 4d 6f 76 65 20 | 28 63 3a 20 46 6f 72 6d |RE Move |(c: Form|
|000008d0| 43 6f 6e 74 72 6f 6c 6c | 65 72 73 2e 43 6f 6e 74 |Controll|ers.Cont|
|000008e0| 72 6f 6c 6c 65 72 3b 20 | 73 3a 20 46 6f 72 6d 43 |roller; |s: FormC|
|000008f0| 6f 6e 74 72 6f 6c 6c 65 | 72 73 2e 20 4c 69 73 74 |ontrolle|rs. List|
|00000900| 3b 20 70 3a 20 4c 4f 4e | 47 49 4e 54 3b 0d 09 09 |; p: LON|GINT;...|
|00000910| 09 09 09 09 09 09 09 73 | 69 64 65 3a 20 49 4e 54 |.......s|ide: INT|
|00000920| 45 47 45 52 3b 20 6e 61 | 6d 65 3a 20 44 6f 6d 61 |EGER; na|me: Doma|
|00000930| 69 6e 73 2e 4f 70 4e 61 | 6d 65 29 3b 0d 09 09 56 |ins.OpNa|me);...V|
|00000940| 41 52 20 73 63 72 69 70 | 74 3a 20 44 6f 6d 61 69 |AR scrip|t: Domai|
|00000950| 6e 73 2e 4f 70 65 72 61 | 74 69 6f 6e 3b 20 64 78 |ns.Opera|tion; dx|
|00000960| 2c 20 64 79 3a 20 4c 4f | 4e 47 49 4e 54 3b 20 6c |, dy: LO|NGINT; l|
|00000970| 2c 20 74 2c 20 72 2c 20 | 62 3a 20 4c 4f 4e 47 49 |, t, r, |b: LONGI|
|00000980| 4e 54 3b 20 68 3a 20 46 | 6f 72 6d 43 6f 6e 74 72 |NT; h: F|ormContr|
|00000990| 6f 6c 6c 65 72 73 2e 4c | 69 73 74 3b 0d 09 42 45 |ollers.L|ist;..BE|
|000009a0| 47 49 4e 0d 09 09 68 20 | 3a 3d 20 73 3b 0d 09 09 |GIN...h |:= s;...|
|000009b0| 56 69 65 77 73 2e 42 65 | 67 69 6e 53 63 72 69 70 |Views.Be|ginScrip|
|000009c0| 74 28 63 2e 76 69 65 77 | 2c 20 6e 61 6d 65 2c 20 |t(c.view|, name, |
|000009d0| 73 63 72 69 70 74 29 3b | 0d 09 09 57 48 49 4c 45 |script);|...WHILE|
|000009e0| 20 73 20 23 20 4e 49 4c | 20 44 4f 0d 09 09 09 46 | s # NIL| DO....F|
|000009f0| 6f 72 6d 4d 6f 64 65 6c | 73 2e 47 65 74 52 65 63 |ormModel|s.GetRec|
|00000a00| 74 28 73 2e 76 69 65 77 | 2c 20 6c 2c 20 74 2c 20 |t(s.view|, l, t, |
|00000a10| 72 2c 20 62 29 3b 0d 09 | 09 09 49 46 20 73 69 64 |r, b);..|..IF sid|
|00000a20| 65 20 3d 20 6c 65 66 74 | 20 54 48 45 4e 20 64 78 |e = left| THEN dx|
|00000a30| 20 3a 3d 20 70 20 2d 20 | 6c 3b 20 64 79 20 3a 3d | := p - |l; dy :=|
|00000a40| 20 30 0d 09 09 09 45 4c | 53 49 46 20 73 69 64 65 | 0....EL|SIF side|
|00000a50| 20 3d 20 74 6f 70 20 54 | 48 45 4e 20 64 78 20 3a | = top T|HEN dx :|
|00000a60| 3d 20 30 3b 20 64 79 20 | 3a 3d 20 70 20 2d 20 74 |= 0; dy |:= p - t|
|00000a70| 0d 09 09 09 45 4c 53 49 | 46 20 73 69 64 65 20 3d |....ELSI|F side =|
|00000a80| 20 72 69 67 68 74 20 54 | 48 45 4e 20 64 78 20 3a | right T|HEN dx :|
|00000a90| 3d 20 70 20 2d 20 72 3b | 20 64 79 20 3a 3d 20 30 |= p - r;| dy := 0|
|00000aa0| 0d 09 09 09 45 4c 53 49 | 46 20 73 69 64 65 20 3d |....ELSI|F side =|
|00000ab0| 20 62 6f 74 74 6f 6d 20 | 54 48 45 4e 20 64 78 20 | bottom |THEN dx |
|00000ac0| 3a 3d 20 30 3b 20 64 79 | 20 3a 3d 20 70 20 2d 20 |:= 0; dy| := p - |
|00000ad0| 62 0d 09 09 09 45 4c 53 | 49 46 20 73 69 64 65 20 |b....ELS|IF side |
|00000ae0| 3d 20 72 6f 77 20 54 48 | 45 4e 20 64 78 20 3a 3d |= row TH|EN dx :=|
|00000af0| 20 30 3b 20 64 79 20 3a | 3d 20 70 20 2d 20 28 74 | 0; dy :|= p - (t|
|00000b00| 20 2b 20 62 29 20 44 49 | 56 20 32 0d 09 09 09 45 | + b) DI|V 2....E|
|00000b10| 4c 53 49 46 20 73 69 64 | 65 20 3d 20 63 6f 6c 75 |LSIF sid|e = colu|
|00000b20| 6d 6e 20 54 48 45 4e 20 | 64 78 20 3a 3d 20 70 20 |mn THEN |dx := p |
|00000b30| 2d 20 28 6c 20 2b 20 72 | 29 20 44 49 56 20 32 3b |- (l + r|) DIV 2;|
|00000b40| 20 64 79 20 3a 3d 20 30 | 0d 09 09 09 45 4e 44 3b | dy := 0|....END;|
|00000b50| 0d 09 09 09 46 6f 72 6d | 56 69 65 77 73 2e 52 6f |....Form|Views.Ro|
|00000b60| 75 6e 64 54 6f 47 72 69 | 64 28 63 2e 54 68 69 73 |undToGri|d(c.This|
|00000b70| 56 69 65 77 28 29 2c 20 | 64 78 2c 20 64 79 29 3b |View(), |dx, dy);|
|00000b80| 0d 09 09 09 63 2e 66 6f | 72 6d 2e 4d 6f 76 65 28 |....c.fo|rm.Move(|
|00000b90| 73 2e 76 69 65 77 2c 20 | 64 78 2c 20 64 79 29 3b |s.view, |dx, dy);|
|00000ba0| 0d 09 09 09 73 20 3a 3d | 20 73 2e 6e 65 78 74 0d |....s :=| s.next.|
|00000bb0| 09 09 45 4e 44 3b 0d 09 | 09 56 69 65 77 73 2e 45 |..END;..|.Views.E|
|00000bc0| 6e 64 53 63 72 69 70 74 | 28 63 2e 76 69 65 77 2c |ndScript|(c.view,|
|00000bd0| 20 73 63 72 69 70 74 29 | 3b 0d 09 09 57 48 49 4c | script)|;...WHIL|
|00000be0| 45 20 68 20 23 20 4e 49 | 4c 20 44 4f 20 63 2e 53 |E h # NI|L DO c.S|
|00000bf0| 65 6c 65 63 74 28 68 2e | 76 69 65 77 29 3b 20 68 |elect(h.|view); h|
|00000c00| 20 3a 3d 20 68 2e 6e 65 | 78 74 20 45 4e 44 0d 09 | := h.ne|xt END..|
|00000c10| 45 4e 44 20 4d 6f 76 65 | 3b 0d 0d 09 50 52 4f 43 |END Move|;...PROC|
|00000c20| 45 44 55 52 45 20 41 6c | 69 67 6e 4c 65 66 74 2a |EDURE Al|ignLeft*|
|00000c30| 3b 0d 09 09 56 41 52 20 | 63 3a 20 46 6f 72 6d 43 |;...VAR |c: FormC|
|00000c40| 6f 6e 74 72 6f 6c 6c 65 | 72 73 2e 43 6f 6e 74 72 |ontrolle|rs.Contr|
|00000c50| 6f 6c 6c 65 72 3b 20 6c | 2c 20 74 2c 20 72 2c 20 |oller; l|, t, r, |
|00000c60| 62 2c 20 68 2c 20 76 3a | 20 4c 4f 4e 47 49 4e 54 |b, h, v:| LONGINT|
|00000c70| 3b 20 73 3a 20 46 6f 72 | 6d 43 6f 6e 74 72 6f 6c |; s: For|mControl|
|00000c80| 6c 65 72 73 2e 4c 69 73 | 74 3b 0d 09 42 45 47 49 |lers.Lis|t;..BEGI|
|00000c90| 4e 0d 09 09 63 20 3a 3d | 20 46 6f 72 6d 43 6f 6e |N...c :=| FormCon|
|00000ca0| 74 72 6f 6c 6c 65 72 73 | 2e 46 6f 63 75 73 28 29 |trollers|.Focus()|
|00000cb0| 3b 0d 09 09 49 46 20 28 | 63 20 23 20 4e 49 4c 29 |;...IF (|c # NIL)|
|00000cc0| 20 26 20 63 2e 48 61 73 | 53 65 6c 65 63 74 69 6f | & c.Has|Selectio|
|00000cd0| 6e 28 29 20 54 48 45 4e | 0d 09 09 09 46 69 6e 64 |n() THEN|....Find|
|00000ce0| 45 78 74 72 65 6d 61 28 | 63 2c 20 6c 2c 20 74 2c |Extrema(|c, l, t,|
|00000cf0| 20 72 2c 20 62 2c 20 68 | 2c 20 76 2c 20 73 29 3b | r, b, h|, v, s);|
|00000d00| 20 4d 6f 76 65 28 63 2c | 20 73 2c 20 6c 2c 20 6c | Move(c,| s, l, l|
|00000d10| 65 66 74 2c 20 22 23 46 | 6f 72 6d 3a 41 6c 69 67 |eft, "#F|orm:Alig|
|00000d20| 6e 4c 65 66 74 22 29 0d | 09 09 45 4c 53 45 20 44 |nLeft").|..ELSE D|
|00000d30| 69 61 6c 6f 67 2e 53 68 | 6f 77 4d 73 67 28 22 6e |ialog.Sh|owMsg("n|
|00000d40| 6f 20 66 6f 63 75 73 20 | 6f 72 20 6e 6f 20 73 65 |o focus |or no se|
|00000d50| 6c 65 63 74 69 6f 6e 22 | 29 0d 09 09 45 4e 44 0d |lection"|)...END.|
|00000d60| 09 45 4e 44 20 41 6c 69 | 67 6e 4c 65 66 74 3b 0d |.END Ali|gnLeft;.|
|00000d70| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 41 6c 69 67 |..PROCED|URE Alig|
|00000d80| 6e 52 69 67 68 74 2a 3b | 0d 09 09 56 41 52 20 63 |nRight*;|...VAR c|
|00000d90| 3a 20 46 6f 72 6d 43 6f | 6e 74 72 6f 6c 6c 65 72 |: FormCo|ntroller|
|00000da0| 73 2e 43 6f 6e 74 72 6f | 6c 6c 65 72 3b 20 6c 2c |s.Contro|ller; l,|
|00000db0| 20 74 2c 20 72 2c 20 62 | 2c 20 68 2c 20 76 3a 20 | t, r, b|, h, v: |
|00000dc0| 4c 4f 4e 47 49 4e 54 3b | 20 73 3a 20 46 6f 72 6d |LONGINT;| s: Form|
|00000dd0| 43 6f 6e 74 72 6f 6c 6c | 65 72 73 2e 4c 69 73 74 |Controll|ers.List|
|00000de0| 3b 0d 09 42 45 47 49 4e | 0d 09 09 63 20 3a 3d 20 |;..BEGIN|...c := |
|00000df0| 46 6f 72 6d 43 6f 6e 74 | 72 6f 6c 6c 65 72 73 2e |FormCont|rollers.|
|00000e00| 46 6f 63 75 73 28 29 3b | 0d 09 09 49 46 20 28 63 |Focus();|...IF (c|
|00000e10| 20 23 20 4e 49 4c 29 20 | 26 20 63 2e 48 61 73 53 | # NIL) |& c.HasS|
|00000e20| 65 6c 65 63 74 69 6f 6e | 28 29 20 54 48 45 4e 0d |election|() THEN.|
|00000e30| 09 09 09 46 69 6e 64 45 | 78 74 72 65 6d 61 28 63 |...FindE|xtrema(c|
|00000e40| 2c 20 6c 2c 20 74 2c 20 | 72 2c 20 62 2c 20 68 2c |, l, t, |r, b, h,|
|00000e50| 20 76 2c 20 73 29 3b 20 | 4d 6f 76 65 28 63 2c 20 | v, s); |Move(c, |
|00000e60| 73 2c 20 72 2c 20 72 69 | 67 68 74 2c 20 22 23 46 |s, r, ri|ght, "#F|
|00000e70| 6f 72 6d 3a 41 6c 69 67 | 6e 52 69 67 68 74 22 29 |orm:Alig|nRight")|
|00000e80| 0d 09 09 45 4c 53 45 20 | 44 69 61 6c 6f 67 2e 53 |...ELSE |Dialog.S|
|00000e90| 68 6f 77 4d 73 67 28 22 | 6e 6f 20 66 6f 63 75 73 |howMsg("|no focus|
|00000ea0| 20 6f 72 20 6e 6f 20 73 | 65 6c 65 63 74 69 6f 6e | or no s|election|
|00000eb0| 22 29 0d 09 09 45 4e 44 | 0d 09 45 4e 44 20 41 6c |")...END|..END Al|
|00000ec0| 69 67 6e 52 69 67 68 74 | 3b 0d 0d 09 50 52 4f 43 |ignRight|;...PROC|
|00000ed0| 45 44 55 52 45 20 41 6c | 69 67 6e 54 6f 70 2a 3b |EDURE Al|ignTop*;|
|00000ee0| 0d 09 09 56 41 52 20 63 | 3a 20 46 6f 72 6d 43 6f |...VAR c|: FormCo|
|00000ef0| 6e 74 72 6f 6c 6c 65 72 | 73 2e 43 6f 6e 74 72 6f |ntroller|s.Contro|
|00000f00| 6c 6c 65 72 3b 20 6c 2c | 20 74 2c 20 72 2c 20 62 |ller; l,| t, r, b|
|00000f10| 2c 20 68 2c 20 76 3a 20 | 4c 4f 4e 47 49 4e 54 3b |, h, v: |LONGINT;|
|00000f20| 20 73 3a 20 46 6f 72 6d | 43 6f 6e 74 72 6f 6c 6c | s: Form|Controll|
|00000f30| 65 72 73 2e 4c 69 73 74 | 3b 0d 09 42 45 47 49 4e |ers.List|;..BEGIN|
|00000f40| 0d 09 09 63 20 3a 3d 20 | 46 6f 72 6d 43 6f 6e 74 |...c := |FormCont|
|00000f50| 72 6f 6c 6c 65 72 73 2e | 46 6f 63 75 73 28 29 3b |rollers.|Focus();|
|00000f60| 0d 09 09 49 46 20 28 63 | 20 23 20 4e 49 4c 29 20 |...IF (c| # NIL) |
|00000f70| 26 20 63 2e 48 61 73 53 | 65 6c 65 63 74 69 6f 6e |& c.HasS|election|
|00000f80| 28 29 20 54 48 45 4e 0d | 09 09 09 46 69 6e 64 45 |() THEN.|...FindE|
|00000f90| 78 74 72 65 6d 61 28 63 | 2c 20 6c 2c 20 74 2c 20 |xtrema(c|, l, t, |
|00000fa0| 72 2c 20 62 2c 20 68 2c | 20 76 2c 20 73 29 3b 20 |r, b, h,| v, s); |
|00000fb0| 4d 6f 76 65 28 63 2c 20 | 73 2c 20 74 2c 20 74 6f |Move(c, |s, t, to|
|00000fc0| 70 2c 20 22 23 46 6f 72 | 6d 3a 41 6c 69 67 6e 54 |p, "#For|m:AlignT|
|00000fd0| 6f 70 22 29 0d 09 09 45 | 4c 53 45 20 44 69 61 6c |op")...E|LSE Dial|
|00000fe0| 6f 67 2e 53 68 6f 77 4d | 73 67 28 22 6e 6f 20 66 |og.ShowM|sg("no f|
|00000ff0| 6f 63 75 73 20 6f 72 20 | 6e 6f 20 73 65 6c 65 63 |ocus or |no selec|
|00001000| 74 69 6f 6e 22 29 0d 09 | 09 45 4e 44 0d 09 45 4e |tion")..|.END..EN|
|00001010| 44 20 41 6c 69 67 6e 54 | 6f 70 3b 0d 0d 09 50 52 |D AlignT|op;...PR|
|00001020| 4f 43 45 44 55 52 45 20 | 41 6c 69 67 6e 42 6f 74 |OCEDURE |AlignBot|
|00001030| 74 6f 6d 2a 3b 0d 09 09 | 56 41 52 20 63 3a 20 46 |tom*;...|VAR c: F|
|00001040| 6f 72 6d 43 6f 6e 74 72 | 6f 6c 6c 65 72 73 2e 43 |ormContr|ollers.C|
|00001050| 6f 6e 74 72 6f 6c 6c 65 | 72 3b 20 6c 2c 20 74 2c |ontrolle|r; l, t,|
|00001060| 20 72 2c 20 62 2c 20 68 | 2c 20 76 3a 20 4c 4f 4e | r, b, h|, v: LON|
|00001070| 47 49 4e 54 3b 20 73 3a | 20 46 6f 72 6d 43 6f 6e |GINT; s:| FormCon|
|00001080| 74 72 6f 6c 6c 65 72 73 | 2e 4c 69 73 74 3b 0d 09 |trollers|.List;..|
|00001090| 42 45 47 49 4e 0d 09 09 | 63 20 3a 3d 20 46 6f 72 |BEGIN...|c := For|
|000010a0| 6d 43 6f 6e 74 72 6f 6c | 6c 65 72 73 2e 46 6f 63 |mControl|lers.Foc|
|000010b0| 75 73 28 29 3b 0d 09 09 | 49 46 20 28 63 20 23 20 |us();...|IF (c # |
|000010c0| 4e 49 4c 29 20 26 20 63 | 2e 48 61 73 53 65 6c 65 |NIL) & c|.HasSele|
|000010d0| 63 74 69 6f 6e 28 29 20 | 54 48 45 4e 0d 09 09 09 |ction() |THEN....|
|000010e0| 46 69 6e 64 45 78 74 72 | 65 6d 61 28 63 2c 20 6c |FindExtr|ema(c, l|
|000010f0| 2c 20 74 2c 20 72 2c 20 | 62 2c 20 68 2c 20 76 2c |, t, r, |b, h, v,|
|00001100| 20 73 29 3b 20 4d 6f 76 | 65 28 63 2c 20 73 2c 20 | s); Mov|e(c, s, |
|00001110| 62 2c 20 62 6f 74 74 6f | 6d 2c 20 22 23 46 6f 72 |b, botto|m, "#For|
|00001120| 6d 3a 41 6c 69 67 6e 42 | 6f 74 74 6f 6d 22 29 0d |m:AlignB|ottom").|
|00001130| 09 09 45 4c 53 45 20 44 | 69 61 6c 6f 67 2e 53 68 |..ELSE D|ialog.Sh|
|00001140| 6f 77 4d 73 67 28 22 6e | 6f 20 66 6f 63 75 73 20 |owMsg("n|o focus |
|00001150| 6f 72 20 6e 6f 20 73 65 | 6c 65 63 74 69 6f 6e 22 |or no se|lection"|
|00001160| 29 0d 09 09 45 4e 44 0d | 09 45 4e 44 20 41 6c 69 |)...END.|.END Ali|
|00001170| 67 6e 42 6f 74 74 6f 6d | 3b 0d 0d 09 50 52 4f 43 |gnBottom|;...PROC|
|00001180| 45 44 55 52 45 20 41 6c | 69 67 6e 54 6f 52 6f 77 |EDURE Al|ignToRow|
|00001190| 2a 3b 0d 09 09 56 41 52 | 20 63 3a 20 46 6f 72 6d |*;...VAR| c: Form|
|000011a0| 43 6f 6e 74 72 6f 6c 6c | 65 72 73 2e 43 6f 6e 74 |Controll|ers.Cont|
|000011b0| 72 6f 6c 6c 65 72 3b 20 | 6c 2c 20 74 2c 20 72 2c |roller; |l, t, r,|
|000011c0| 20 62 2c 20 68 2c 20 76 | 3a 20 4c 4f 4e 47 49 4e | b, h, v|: LONGIN|
|000011d0| 54 3b 20 73 3a 20 46 6f | 72 6d 43 6f 6e 74 72 6f |T; s: Fo|rmContro|
|000011e0| 6c 6c 65 72 73 2e 4c 69 | 73 74 3b 0d 09 42 45 47 |llers.Li|st;..BEG|
|000011f0| 49 4e 0d 09 09 63 20 3a | 3d 20 46 6f 72 6d 43 6f |IN...c :|= FormCo|
|00001200| 6e 74 72 6f 6c 6c 65 72 | 73 2e 46 6f 63 75 73 28 |ntroller|s.Focus(|
|00001210| 29 3b 0d 09 09 49 46 20 | 28 63 20 23 20 4e 49 4c |);...IF |(c # NIL|
|00001220| 29 20 26 20 63 2e 48 61 | 73 53 65 6c 65 63 74 69 |) & c.Ha|sSelecti|
|00001230| 6f 6e 28 29 20 54 48 45 | 4e 0d 09 09 09 46 69 6e |on() THE|N....Fin|
|00001240| 64 45 78 74 72 65 6d 61 | 28 63 2c 20 6c 2c 20 74 |dExtrema|(c, l, t|
|00001250| 2c 20 72 2c 20 62 2c 20 | 68 2c 20 76 2c 20 73 29 |, r, b, |h, v, s)|
|00001260| 3b 20 4d 6f 76 65 28 63 | 2c 20 73 2c 20 76 2c 20 |; Move(c|, s, v, |
|00001270| 72 6f 77 2c 20 22 23 46 | 6f 72 6d 3a 41 6c 69 67 |row, "#F|orm:Alig|
|00001280| 6e 48 6f 72 69 7a 6f 6e | 74 61 6c 22 29 0d 09 09 |nHorizon|tal")...|
|00001290| 45 4c 53 45 20 44 69 61 | 6c 6f 67 2e 53 68 6f 77 |ELSE Dia|log.Show|
|000012a0| 4d 73 67 28 22 6e 6f 20 | 66 6f 63 75 73 20 6f 72 |Msg("no |focus or|
|000012b0| 20 6e 6f 20 73 65 6c 65 | 63 74 69 6f 6e 22 29 0d | no sele|ction").|
|000012c0| 09 09 45 4e 44 0d 09 45 | 4e 44 20 41 6c 69 67 6e |..END..E|ND Align|
|000012d0| 54 6f 52 6f 77 3b 0d 0d | 09 50 52 4f 43 45 44 55 |ToRow;..|.PROCEDU|
|000012e0| 52 45 20 41 6c 69 67 6e | 54 6f 43 6f 6c 75 6d 6e |RE Align|ToColumn|
|000012f0| 2a 3b 0d 09 09 56 41 52 | 20 63 3a 20 46 6f 72 6d |*;...VAR| c: Form|
|00001300| 43 6f 6e 74 72 6f 6c 6c | 65 72 73 2e 43 6f 6e 74 |Controll|ers.Cont|
|00001310| 72 6f 6c 6c 65 72 3b 20 | 6c 2c 20 74 2c 20 72 2c |roller; |l, t, r,|
|00001320| 20 62 2c 20 68 2c 20 76 | 3a 20 4c 4f 4e 47 49 4e | b, h, v|: LONGIN|
|00001330| 54 3b 20 73 3a 20 46 6f | 72 6d 43 6f 6e 74 72 6f |T; s: Fo|rmContro|
|00001340| 6c 6c 65 72 73 2e 4c 69 | 73 74 3b 0d 09 42 45 47 |llers.Li|st;..BEG|
|00001350| 49 4e 0d 09 09 63 20 3a | 3d 20 46 6f 72 6d 43 6f |IN...c :|= FormCo|
|00001360| 6e 74 72 6f 6c 6c 65 72 | 73 2e 46 6f 63 75 73 28 |ntroller|s.Focus(|
|00001370| 29 3b 0d 09 09 49 46 20 | 28 63 20 23 20 4e 49 4c |);...IF |(c # NIL|
|00001380| 29 20 26 20 63 2e 48 61 | 73 53 65 6c 65 63 74 69 |) & c.Ha|sSelecti|
|00001390| 6f 6e 28 29 20 54 48 45 | 4e 0d 09 09 09 46 69 6e |on() THE|N....Fin|
|000013a0| 64 45 78 74 72 65 6d 61 | 28 63 2c 20 6c 2c 20 74 |dExtrema|(c, l, t|
|000013b0| 2c 20 72 2c 20 62 2c 20 | 68 2c 20 76 2c 20 73 29 |, r, b, |h, v, s)|
|000013c0| 3b 20 4d 6f 76 65 28 63 | 2c 20 73 2c 20 68 2c 20 |; Move(c|, s, h, |
|000013d0| 63 6f 6c 75 6d 6e 2c 20 | 22 23 46 6f 72 6d 3a 41 |column, |"#Form:A|
|000013e0| 6c 69 67 6e 56 65 72 74 | 69 63 61 6c 22 29 0d 09 |lignVert|ical")..|
|000013f0| 09 45 4c 53 45 20 44 69 | 61 6c 6f 67 2e 53 68 6f |.ELSE Di|alog.Sho|
|00001400| 77 4d 73 67 28 22 6e 6f | 20 66 6f 63 75 73 20 6f |wMsg("no| focus o|
|00001410| 72 20 6e 6f 20 73 65 6c | 65 63 74 69 6f 6e 22 29 |r no sel|ection")|
|00001420| 0d 09 09 45 4e 44 0d 09 | 45 4e 44 20 41 6c 69 67 |...END..|END Alig|
|00001430| 6e 54 6f 43 6f 6c 75 6d | 6e 3b 0d 0d 0d 09 50 52 |nToColum|n;....PR|
|00001440| 4f 43 45 44 55 52 45 20 | 53 65 6c 65 63 74 4f 66 |OCEDURE |SelectOf|
|00001450| 66 47 72 69 64 56 69 65 | 77 73 2a 3b 0d 09 09 56 |fGridVie|ws*;...V|
|00001460| 41 52 20 63 3a 20 46 6f | 72 6d 43 6f 6e 74 72 6f |AR c: Fo|rmContro|
|00001470| 6c 6c 65 72 73 2e 43 6f | 6e 74 72 6f 6c 6c 65 72 |llers.Co|ntroller|
|00001480| 3b 20 76 3a 20 56 69 65 | 77 73 2e 56 69 65 77 3b |; v: Vie|ws.View;|
|00001490| 20 68 3a 20 46 6f 72 6d | 4d 6f 64 65 6c 73 2e 52 | h: Form|Models.R|
|000014a0| 65 61 64 65 72 3b 0d 09 | 09 09 6c 2c 20 74 2c 20 |eader;..|..l, t, |
|000014b0| 72 2c 20 62 2c 20 6c 30 | 2c 20 74 30 3a 20 4c 4f |r, b, l0|, t0: LO|
|000014c0| 4e 47 49 4e 54 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |NGINT;..|BEGIN...|
|000014d0| 63 20 3a 3d 20 46 6f 72 | 6d 43 6f 6e 74 72 6f 6c |c := For|mControl|
|000014e0| 6c 65 72 73 2e 46 6f 63 | 75 73 28 29 3b 0d 09 09 |lers.Foc|us();...|
|000014f0| 49 46 20 63 20 23 20 4e | 49 4c 20 54 48 45 4e 0d |IF c # N|IL THEN.|
|00001500| 09 09 09 63 2e 53 65 6c | 65 63 74 41 6c 6c 28 46 |...c.Sel|ectAll(F|
|00001510| 41 4c 53 45 29 3b 0d 09 | 09 09 68 20 3a 3d 20 63 |ALSE);..|..h := c|
|00001520| 2e 66 6f 72 6d 2e 4e 65 | 77 52 65 61 64 65 72 28 |.form.Ne|wReader(|
|00001530| 4e 49 4c 29 3b 20 68 2e | 53 65 74 28 4e 49 4c 29 |NIL); h.|Set(NIL)|
|00001540| 3b 0d 09 09 09 68 2e 52 | 65 61 64 56 69 65 77 28 |;....h.R|eadView(|
|00001550| 76 29 3b 0d 09 09 09 57 | 48 49 4c 45 20 76 20 23 |v);....W|HILE v #|
|00001560| 20 4e 49 4c 20 44 4f 0d | 09 09 09 09 46 6f 72 6d | NIL DO.|....Form|
|00001570| 4d 6f 64 65 6c 73 2e 47 | 65 74 52 65 63 74 28 76 |Models.G|etRect(v|
|00001580| 2c 20 6c 2c 20 74 2c 20 | 72 2c 20 62 29 3b 20 6c |, l, t, |r, b); l|
|00001590| 30 20 3a 3d 20 6c 3b 20 | 74 30 20 3a 3d 20 74 3b |0 := l; |t0 := t;|
|000015a0| 0d 09 09 09 09 46 6f 72 | 6d 56 69 65 77 73 2e 52 |.....For|mViews.R|
|000015b0| 6f 75 6e 64 54 6f 47 72 | 69 64 28 63 2e 76 69 65 |oundToGr|id(c.vie|
|000015c0| 77 2c 20 6c 30 2c 20 74 | 30 29 3b 0d 09 09 09 09 |w, l0, t|0);.....|
|000015d0| 49 46 20 28 6c 30 20 23 | 20 6c 29 20 4f 52 20 28 |IF (l0 #| l) OR (|
|000015e0| 74 30 20 23 20 74 29 20 | 54 48 45 4e 20 63 2e 53 |t0 # t) |THEN c.S|
|000015f0| 65 6c 65 63 74 28 76 29 | 20 45 4e 44 3b 0d 09 09 |elect(v)| END;...|
|00001600| 09 09 68 2e 52 65 61 64 | 56 69 65 77 28 76 29 0d |..h.Read|View(v).|
|00001610| 09 09 09 45 4e 44 0d 09 | 09 45 4e 44 0d 09 45 4e |...END..|.END..EN|
|00001620| 44 20 53 65 6c 65 63 74 | 4f 66 66 47 72 69 64 56 |D Select|OffGridV|
|00001630| 69 65 77 73 3b 0d 0d 0d | 09 50 52 4f 43 45 44 55 |iews;...|.PROCEDU|
|00001640| 52 45 20 53 65 6c 65 63 | 74 69 6f 6e 20 28 63 3a |RE Selec|tion (c:|
|00001650| 20 46 6f 72 6d 43 6f 6e | 74 72 6f 6c 6c 65 72 73 | FormCon|trollers|
|00001660| 2e 43 6f 6e 74 72 6f 6c | 6c 65 72 29 3a 20 46 6f |.Control|ler): Fo|
|00001670| 72 6d 43 6f 6e 74 72 6f | 6c 6c 65 72 73 2e 4c 69 |rmContro|llers.Li|
|00001680| 73 74 3b 0d 09 09 56 41 | 52 20 70 2c 20 71 3a 20 |st;...VA|R p, q: |
|00001690| 46 6f 72 6d 43 6f 6e 74 | 72 6f 6c 6c 65 72 73 2e |FormCont|rollers.|
|000016a0| 20 4c 69 73 74 3b 20 68 | 3a 20 46 6f 72 6d 4d 6f | List; h|: FormMo|
|000016b0| 64 65 6c 73 2e 52 65 61 | 64 65 72 3b 20 76 3a 20 |dels.Rea|der; v: |
|000016c0| 56 69 65 77 73 2e 56 69 | 65 77 3b 0d 09 42 45 47 |Views.Vi|ew;..BEG|
|000016d0| 49 4e 0d 09 09 70 20 3a | 3d 20 4e 49 4c 3b 0d 09 |IN...p :|= NIL;..|
|000016e0| 09 68 20 3a 3d 20 63 2e | 66 6f 72 6d 2e 4e 65 77 |.h := c.|form.New|
|000016f0| 52 65 61 64 65 72 28 4e | 49 4c 29 3b 20 68 2e 53 |Reader(N|IL); h.S|
|00001700| 65 74 28 4e 49 4c 29 3b | 20 68 2e 52 65 61 64 56 |et(NIL);| h.ReadV|
|00001710| 69 65 77 28 76 29 3b 0d | 09 09 57 48 49 4c 45 20 |iew(v);.|..WHILE |
|00001720| 76 20 23 20 4e 49 4c 20 | 44 4f 0d 09 09 09 49 46 |v # NIL |DO....IF|
|00001730| 20 63 2e 49 73 53 65 6c | 65 63 74 65 64 28 76 29 | c.IsSel|ected(v)|
|00001740| 20 54 48 45 4e 20 4e 45 | 57 28 71 29 3b 20 71 2e | THEN NE|W(q); q.|
|00001750| 6e 65 78 74 20 3a 3d 20 | 70 3b 20 70 20 3a 3d 20 |next := |p; p := |
|00001760| 71 3b 20 71 2e 76 69 65 | 77 20 3a 3d 20 76 20 45 |q; q.vie|w := v E|
|00001770| 4e 44 3b 0d 09 09 09 68 | 2e 52 65 61 64 56 69 65 |ND;....h|.ReadVie|
|00001780| 77 28 76 29 0d 09 09 45 | 4e 44 3b 0d 09 09 52 45 |w(v)...E|ND;...RE|
|00001790| 54 55 52 4e 20 70 0d 09 | 45 4e 44 20 53 65 6c 65 |TURN p..|END Sele|
|000017a0| 63 74 69 6f 6e 3b 0d 0d | 09 50 52 4f 43 45 44 55 |ction;..|.PROCEDU|
|000017b0| 52 45 20 46 6f 72 63 65 | 54 6f 47 72 69 64 2a 3b |RE Force|ToGrid*;|
|000017c0| 0d 09 09 56 41 52 20 63 | 3a 20 46 6f 72 6d 43 6f |...VAR c|: FormCo|
|000017d0| 6e 74 72 6f 6c 6c 65 72 | 73 2e 43 6f 6e 74 72 6f |ntroller|s.Contro|
|000017e0| 6c 6c 65 72 3b 0d 09 09 | 09 6c 2c 20 74 2c 20 72 |ller;...|.l, t, r|
|000017f0| 2c 20 62 2c 20 6c 30 2c | 20 74 30 3a 20 4c 4f 4e |, b, l0,| t0: LON|
|00001800| 47 49 4e 54 3b 20 73 65 | 6c 2c 20 73 65 6c 30 3a |GINT; se|l, sel0:|
|00001810| 20 46 6f 72 6d 43 6f 6e | 74 72 6f 6c 6c 65 72 73 | FormCon|trollers|
|00001820| 2e 4c 69 73 74 3b 20 73 | 3a 20 44 6f 6d 61 69 6e |.List; s|: Domain|
|00001830| 73 2e 4f 70 65 72 61 74 | 69 6f 6e 3b 0d 09 42 45 |s.Operat|ion;..BE|
|00001840| 47 49 4e 0d 09 09 63 20 | 3a 3d 20 46 6f 72 6d 43 |GIN...c |:= FormC|
|00001850| 6f 6e 74 72 6f 6c 6c 65 | 72 73 2e 46 6f 63 75 73 |ontrolle|rs.Focus|
|00001860| 28 29 3b 0d 09 09 49 46 | 20 28 63 20 23 20 4e 49 |();...IF| (c # NI|
|00001870| 4c 29 20 26 20 63 2e 48 | 61 73 53 65 6c 65 63 74 |L) & c.H|asSelect|
|00001880| 69 6f 6e 28 29 20 54 48 | 45 4e 0d 09 09 09 56 69 |ion() TH|EN....Vi|
|00001890| 65 77 73 2e 42 65 67 69 | 6e 53 63 72 69 70 74 28 |ews.Begi|nScript(|
|000018a0| 63 2e 76 69 65 77 2c 20 | 22 23 46 6f 72 6d 3a 46 |c.view, |"#Form:F|
|000018b0| 6f 72 63 65 54 6f 47 72 | 69 64 22 2c 20 73 29 3b |orceToGr|id", s);|
|000018c0| 0d 09 09 09 73 65 6c 20 | 3a 3d 20 53 65 6c 65 63 |....sel |:= Selec|
|000018d0| 74 69 6f 6e 28 63 29 3b | 20 73 65 6c 30 20 3a 3d |tion(c);| sel0 :=|
|000018e0| 20 73 65 6c 3b 0d 09 09 | 09 57 48 49 4c 45 20 73 | sel;...|.WHILE s|
|000018f0| 65 6c 20 23 20 4e 49 4c | 20 44 4f 0d 09 09 09 09 |el # NIL| DO.....|
|00001900| 46 6f 72 6d 4d 6f 64 65 | 6c 73 2e 47 65 74 52 65 |FormMode|ls.GetRe|
|00001910| 63 74 28 73 65 6c 2e 76 | 69 65 77 2c 20 6c 2c 20 |ct(sel.v|iew, l, |
|00001920| 74 2c 20 72 2c 20 62 29 | 3b 20 6c 30 20 3a 3d 20 |t, r, b)|; l0 := |
|00001930| 6c 3b 20 74 30 20 3a 3d | 20 74 3b 0d 09 09 09 09 |l; t0 :=| t;.....|
|00001940| 46 6f 72 6d 56 69 65 77 | 73 2e 52 6f 75 6e 64 54 |FormView|s.RoundT|
|00001950| 6f 47 72 69 64 28 63 2e | 76 69 65 77 2c 20 6c 30 |oGrid(c.|view, l0|
|00001960| 2c 20 74 30 29 3b 0d 09 | 09 09 09 63 2e 66 6f 72 |, t0);..|...c.for|
|00001970| 6d 2e 4d 6f 76 65 28 73 | 65 6c 2e 76 69 65 77 2c |m.Move(s|el.view,|
|00001980| 20 6c 30 20 2d 20 6c 2c | 20 74 30 20 2d 20 74 29 | l0 - l,| t0 - t)|
|00001990| 3b 0d 09 09 09 09 73 65 | 6c 20 3a 3d 20 73 65 6c |;.....se|l := sel|
|000019a0| 2e 6e 65 78 74 0d 09 09 | 09 45 4e 44 3b 0d 09 09 |.next...|.END;...|
|000019b0| 09 56 69 65 77 73 2e 45 | 6e 64 53 63 72 69 70 74 |.Views.E|ndScript|
|000019c0| 28 63 2e 76 69 65 77 2c | 20 73 29 3b 0d 09 09 09 |(c.view,| s);....|
|000019d0| 57 48 49 4c 45 20 73 65 | 6c 30 20 23 20 4e 49 4c |WHILE se|l0 # NIL|
|000019e0| 20 44 4f 20 63 2e 53 65 | 6c 65 63 74 28 73 65 6c | DO c.Se|lect(sel|
|000019f0| 30 2e 76 69 65 77 29 3b | 20 73 65 6c 30 20 3a 3d |0.view);| sel0 :=|
|00001a00| 20 73 65 6c 30 2e 6e 65 | 78 74 20 45 4e 44 0d 09 | sel0.ne|xt END..|
|00001a10| 09 45 4e 44 0d 09 45 4e | 44 20 46 6f 72 63 65 54 |.END..EN|D ForceT|
|00001a20| 6f 47 72 69 64 3b 0d 0d | 09 50 52 4f 43 45 44 55 |oGrid;..|.PROCEDU|
|00001a30| 52 45 20 44 75 70 6c 69 | 63 61 74 65 56 69 65 77 |RE Dupli|cateView|
|00001a40| 2a 3b 0d 09 09 56 41 52 | 20 63 3a 20 46 6f 72 6d |*;...VAR| c: Form|
|00001a50| 43 6f 6e 74 72 6f 6c 6c | 65 72 73 2e 43 6f 6e 74 |Controll|ers.Cont|
|00001a60| 72 6f 6c 6c 65 72 3b 20 | 76 2c 20 68 3a 20 56 69 |roller; |v, h: Vi|
|00001a70| 65 77 73 2e 56 69 65 77 | 3b 20 6c 2c 20 74 2c 20 |ews.View|; l, t, |
|00001a80| 72 2c 20 62 2c 20 64 3a | 20 4c 4f 4e 47 49 4e 54 |r, b, d:| LONGINT|
|00001a90| 3b 0d 09 42 45 47 49 4e | 0d 09 09 63 20 3a 3d 20 |;..BEGIN|...c := |
|00001aa0| 46 6f 72 6d 43 6f 6e 74 | 72 6f 6c 6c 65 72 73 2e |FormCont|rollers.|
|00001ab0| 46 6f 63 75 73 28 29 3b | 0d 09 09 49 46 20 63 20 |Focus();|...IF c |
|00001ac0| 23 20 4e 49 4c 20 54 48 | 45 4e 0d 09 09 09 76 20 |# NIL TH|EN....v |
|00001ad0| 3a 3d 20 63 2e 53 69 6e | 67 6c 65 74 6f 6e 28 29 |:= c.Sin|gleton()|
|00001ae0| 3b 0d 09 09 09 49 46 20 | 76 20 23 20 4e 49 4c 20 |;....IF |v # NIL |
|00001af0| 54 48 45 4e 0d 09 09 09 | 09 46 6f 72 6d 4d 6f 64 |THEN....|.FormMod|
|00001b00| 65 6c 73 2e 47 65 74 52 | 65 63 74 28 76 2c 20 6c |els.GetR|ect(v, l|
|00001b10| 2c 20 74 2c 20 72 2c 20 | 62 29 3b 0d 09 09 09 09 |, t, r, |b);.....|
|00001b20| 68 20 3a 3d 20 56 69 65 | 77 73 2e 43 6f 70 79 4f |h := Vie|ws.CopyO|
|00001b30| 66 28 76 2c 20 56 69 65 | 77 73 2e 64 65 65 70 29 |f(v, Vie|ws.deep)|
|00001b40| 3b 0d 09 09 09 09 64 20 | 3a 3d 20 63 2e 76 69 65 |;.....d |:= c.vie|
|00001b50| 77 2e 67 72 69 64 20 2a | 20 63 2e 76 69 65 77 2e |w.grid *| c.view.|
|00001b60| 67 72 69 64 46 61 63 74 | 6f 72 3b 0d 09 09 09 09 |gridFact|or;.....|
|00001b70| 63 2e 66 6f 72 6d 2e 49 | 6e 73 65 72 74 28 68 2c |c.form.I|nsert(h,|
|00001b80| 20 6c 20 2b 20 64 2c 20 | 74 20 2b 20 64 2c 20 72 | l + d, |t + d, r|
|00001b90| 20 2b 20 64 2c 20 62 20 | 2b 20 64 29 3b 0d 09 09 | + d, b |+ d);...|
|00001ba0| 09 09 63 2e 53 65 6c 65 | 63 74 28 68 29 0d 09 09 |..c.Sele|ct(h)...|
|00001bb0| 09 45 4e 44 0d 09 09 45 | 4e 44 0d 09 45 4e 44 20 |.END...E|ND..END |
|00001bc0| 44 75 70 6c 69 63 61 74 | 65 56 69 65 77 3b 0d 0d |Duplicat|eView;..|
|00001bd0| 09 50 52 4f 43 45 44 55 | 52 45 20 53 6f 72 74 56 |.PROCEDU|RE SortV|
|00001be0| 69 65 77 73 2a 3b 0d 09 | 09 56 41 52 20 63 3a 20 |iews*;..|.VAR c: |
|00001bf0| 46 6f 72 6d 43 6f 6e 74 | 72 6f 6c 6c 65 72 73 2e |FormCont|rollers.|
|00001c00| 43 6f 6e 74 72 6f 6c 6c | 65 72 3b 20 73 63 72 69 |Controll|er; scri|
|00001c10| 70 74 3a 20 44 6f 6d 61 | 69 6e 73 2e 4f 70 65 72 |pt: Doma|ins.Oper|
|00001c20| 61 74 69 6f 6e 3b 0d 09 | 09 09 72 3a 20 46 6f 72 |ation;..|..r: For|
|00001c30| 6d 4d 6f 64 65 6c 73 2e | 52 65 61 64 65 72 3b 20 |mModels.|Reader; |
|00001c40| 70 2c 20 71 3a 20 56 69 | 65 77 73 2e 56 69 65 77 |p, q: Vi|ews.View|
|00001c50| 3b 0d 0d 09 09 50 52 4f | 43 45 44 55 52 45 20 49 |;....PRO|CEDURE I|
|00001c60| 73 41 62 6f 76 65 20 28 | 70 2c 20 71 3a 20 56 69 |sAbove (|p, q: Vi|
|00001c70| 65 77 73 2e 56 69 65 77 | 29 3a 20 42 4f 4f 4c 45 |ews.View|): BOOLE|
|00001c80| 41 4e 3b 0d 09 09 09 56 | 41 52 20 6c 30 2c 20 6c |AN;....V|AR l0, l|
|00001c90| 31 2c 20 74 30 2c 20 74 | 31 2c 20 72 2c 20 62 3a |1, t0, t|1, r, b:|
|00001ca0| 20 4c 4f 4e 47 49 4e 54 | 3b 0d 09 09 42 45 47 49 | LONGINT|;...BEGI|
|00001cb0| 4e 0d 09 09 09 46 6f 72 | 6d 4d 6f 64 65 6c 73 2e |N....For|mModels.|
|00001cc0| 47 65 74 52 65 63 74 28 | 70 2c 20 6c 30 2c 20 74 |GetRect(|p, l0, t|
|00001cd0| 30 2c 20 72 2c 20 62 29 | 3b 0d 09 09 09 46 6f 72 |0, r, b)|;....For|
|00001ce0| 6d 4d 6f 64 65 6c 73 2e | 47 65 74 52 65 63 74 28 |mModels.|GetRect(|
|00001cf0| 71 2c 20 6c 31 2c 20 74 | 31 2c 20 72 2c 20 62 29 |q, l1, t|1, r, b)|
|00001d00| 3b 0d 09 09 09 52 45 54 | 55 52 4e 20 28 74 30 20 |;....RET|URN (t0 |
|00001d10| 3c 20 74 31 29 20 4f 52 | 20 28 74 30 20 3d 20 74 |< t1) OR| (t0 = t|
|00001d20| 31 29 20 26 20 28 6c 30 | 20 3c 3d 20 6c 31 29 0d |1) & (l0| <= l1).|
|00001d30| 09 09 45 4e 44 20 49 73 | 41 62 6f 76 65 3b 0d 0d |..END Is|Above;..|
|00001d40| 09 42 45 47 49 4e 0d 09 | 09 63 20 3a 3d 20 46 6f |.BEGIN..|.c := Fo|
|00001d50| 72 6d 43 6f 6e 74 72 6f | 6c 6c 65 72 73 2e 46 6f |rmContro|llers.Fo|
|00001d60| 63 75 73 28 29 3b 0d 09 | 09 49 46 20 28 63 20 23 |cus();..|.IF (c #|
|00001d70| 20 4e 49 4c 29 20 26 20 | 28 63 2e 66 6f 72 6d 2e | NIL) & |(c.form.|
|00001d80| 4e 6f 66 56 69 65 77 73 | 28 29 20 3e 20 31 29 20 |NofViews|() > 1) |
|00001d90| 54 48 45 4e 0d 09 09 09 | 63 2e 53 65 6c 65 63 74 |THEN....|c.Select|
|00001da0| 41 6c 6c 28 46 41 4c 53 | 45 29 3b 0d 09 09 09 4d |All(FALS|E);....M|
|00001db0| 6f 64 65 6c 73 2e 42 65 | 67 69 6e 53 63 72 69 70 |odels.Be|ginScrip|
|00001dc0| 74 28 63 2e 66 6f 72 6d | 2c 20 22 23 46 6f 72 6d |t(c.form|, "#Form|
|00001dd0| 3a 43 68 61 6e 67 65 5a | 4f 72 64 65 72 22 2c 20 |:ChangeZ|Order", |
|00001de0| 73 63 72 69 70 74 29 3b | 0d 09 09 09 72 20 3a 3d |script);|....r :=|
|00001df0| 20 63 2e 66 6f 72 6d 2e | 4e 65 77 52 65 61 64 65 | c.form.|NewReade|
|00001e00| 72 28 4e 49 4c 29 3b 0d | 09 09 09 52 45 50 45 41 |r(NIL);.|...REPEA|
|00001e10| 54 09 28 2a 20 62 75 62 | 62 6c 65 20 73 6f 72 74 |T.(* bub|ble sort|
|00001e20| 20 2a 29 0d 09 09 09 09 | 72 2e 53 65 74 28 4e 49 | *).....|r.Set(NI|
|00001e30| 4c 29 3b 20 72 2e 52 65 | 61 64 56 69 65 77 28 70 |L); r.Re|adView(p|
|00001e40| 29 3b 20 72 2e 52 65 61 | 64 56 69 65 77 28 71 29 |); r.Rea|dView(q)|
|00001e50| 3b 0d 09 09 09 09 57 48 | 49 4c 45 20 28 71 20 23 |;.....WH|ILE (q #|
|00001e60| 20 4e 49 4c 29 20 26 20 | 49 73 41 62 6f 76 65 28 | NIL) & |IsAbove(|
|00001e70| 70 2c 20 71 29 20 44 4f | 20 70 20 3a 3d 20 71 3b |p, q) DO| p := q;|
|00001e80| 20 72 2e 52 65 61 64 56 | 69 65 77 28 71 29 20 45 | r.ReadV|iew(q) E|
|00001e90| 4e 44 3b 0d 09 09 09 09 | 49 46 20 71 20 23 20 4e |ND;.....|IF q # N|
|00001ea0| 49 4c 20 54 48 45 4e 20 | 63 2e 66 6f 72 6d 2e 50 |IL THEN |c.form.P|
|00001eb0| 75 74 41 62 6f 76 65 28 | 70 2c 20 71 29 20 45 4e |utAbove(|p, q) EN|
|00001ec0| 44 0d 09 09 09 55 4e 54 | 49 4c 20 71 20 3d 20 4e |D....UNT|IL q = N|
|00001ed0| 49 4c 3b 0d 09 09 09 4d | 6f 64 65 6c 73 2e 45 6e |IL;....M|odels.En|
|00001ee0| 64 53 63 72 69 70 74 28 | 63 2e 66 6f 72 6d 2c 20 |dScript(|c.form, |
|00001ef0| 73 63 72 69 70 74 29 3b | 0d 09 09 09 63 2e 53 65 |script);|....c.Se|
|00001f00| 6c 65 63 74 41 6c 6c 28 | 54 52 55 45 29 0d 09 09 |lectAll(|TRUE)...|
|00001f10| 45 4e 44 0d 09 45 4e 44 | 20 53 6f 72 74 56 69 65 |END..END| SortVie|
|00001f20| 77 73 3b 0d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |ws;...PR|OCEDURE |
|00001f30| 53 65 74 41 73 46 69 72 | 73 74 2a 3b 0d 09 28 2a |SetAsFir|st*;..(*|
|00001f40| 2a 20 73 65 6e 64 20 74 | 6f 20 62 61 63 6b 20 2a |* send t|o back *|
|00001f50| 2a 29 0d 09 09 56 41 52 | 20 63 3a 20 46 6f 72 6d |*)...VAR| c: Form|
|00001f60| 43 6f 6e 74 72 6f 6c 6c | 65 72 73 2e 43 6f 6e 74 |Controll|ers.Cont|
|00001f70| 72 6f 6c 6c 65 72 3b 20 | 76 3a 20 56 69 65 77 73 |roller; |v: Views|
|00001f80| 2e 56 69 65 77 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |.View;..|BEGIN...|
|00001f90| 63 20 3a 3d 20 46 6f 72 | 6d 43 6f 6e 74 72 6f 6c |c := For|mControl|
|00001fa0| 6c 65 72 73 2e 46 6f 63 | 75 73 28 29 3b 0d 09 09 |lers.Foc|us();...|
|00001fb0| 49 46 20 63 20 23 20 4e | 49 4c 20 54 48 45 4e 0d |IF c # N|IL THEN.|
|00001fc0| 09 09 09 76 20 3a 3d 20 | 63 2e 53 69 6e 67 6c 65 |...v := |c.Single|
|00001fd0| 74 6f 6e 28 29 3b 0d 09 | 09 09 49 46 20 76 20 23 |ton();..|..IF v #|
|00001fe0| 20 4e 49 4c 20 54 48 45 | 4e 0d 09 09 09 09 63 2e | NIL THE|N.....c.|
|00001ff0| 66 6f 72 6d 2e 50 75 74 | 41 62 6f 76 65 28 76 2c |form.Put|Above(v,|
|00002000| 20 4e 49 4c 29 3b 0d 09 | 09 09 09 63 2e 53 65 74 | NIL);..|...c.Set|
|00002010| 53 69 6e 67 6c 65 74 6f | 6e 28 76 29 0d 09 09 09 |Singleto|n(v)....|
|00002020| 45 4e 44 0d 09 09 45 4e | 44 0d 09 45 4e 44 20 53 |END...EN|D..END S|
|00002030| 65 74 41 73 46 69 72 73 | 74 3b 0d 0d 09 50 52 4f |etAsFirs|t;...PRO|
|00002040| 43 45 44 55 52 45 20 53 | 65 74 41 73 4c 61 73 74 |CEDURE S|etAsLast|
|00002050| 2a 3b 0d 09 28 2a 2a 20 | 62 72 69 6e 67 20 74 6f |*;..(** |bring to|
|00002060| 20 66 72 6f 6e 74 20 2a | 2a 29 0d 09 09 56 41 52 | front *|*)...VAR|
|00002070| 20 63 3a 20 46 6f 72 6d | 43 6f 6e 74 72 6f 6c 6c | c: Form|Controll|
|00002080| 65 72 73 2e 43 6f 6e 74 | 72 6f 6c 6c 65 72 3b 20 |ers.Cont|roller; |
|00002090| 76 2c 20 70 2c 20 71 3a | 20 56 69 65 77 73 2e 56 |v, p, q:| Views.V|
|000020a0| 69 65 77 3b 20 72 3a 20 | 46 6f 72 6d 4d 6f 64 65 |iew; r: |FormMode|
|000020b0| 6c 73 2e 52 65 61 64 65 | 72 3b 0d 09 42 45 47 49 |ls.Reade|r;..BEGI|
|000020c0| 4e 0d 09 09 63 20 3a 3d | 20 46 6f 72 6d 43 6f 6e |N...c :=| FormCon|
|000020d0| 74 72 6f 6c 6c 65 72 73 | 2e 46 6f 63 75 73 28 29 |trollers|.Focus()|
|000020e0| 3b 0d 09 09 49 46 20 63 | 20 23 20 4e 49 4c 20 54 |;...IF c| # NIL T|
|000020f0| 48 45 4e 0d 09 09 09 76 | 20 3a 3d 20 63 2e 53 69 |HEN....v| := c.Si|
|00002100| 6e 67 6c 65 74 6f 6e 28 | 29 3b 0d 09 09 09 49 46 |ngleton(|);....IF|
|00002110| 20 76 20 23 20 4e 49 4c | 20 54 48 45 4e 0d 09 09 | v # NIL| THEN...|
|00002120| 09 09 72 20 3a 3d 20 63 | 2e 66 6f 72 6d 2e 4e 65 |..r := c|.form.Ne|
|00002130| 77 52 65 61 64 65 72 28 | 4e 49 4c 29 3b 20 72 2e |wReader(|NIL); r.|
|00002140| 53 65 74 28 76 29 3b 20 | 70 20 3a 3d 20 76 3b 0d |Set(v); |p := v;.|
|00002150| 09 09 09 09 52 45 50 45 | 41 54 20 71 20 3a 3d 20 |....REPE|AT q := |
|00002160| 70 3b 20 72 2e 52 65 61 | 64 56 69 65 77 28 70 29 |p; r.Rea|dView(p)|
|00002170| 20 55 4e 54 49 4c 20 70 | 20 3d 20 4e 49 4c 3b 0d | UNTIL p| = NIL;.|
|00002180| 09 09 09 49 46 20 76 20 | 3d 20 71 20 54 48 45 4e |...IF v |= q THEN|
|00002190| 20 44 69 61 6c 6f 67 2e | 42 65 65 70 20 45 4e 44 | Dialog.|Beep END|
|000021a0| 3b 0d 09 09 09 09 63 2e | 66 6f 72 6d 2e 50 75 74 |;.....c.|form.Put|
|000021b0| 41 62 6f 76 65 28 76 2c | 20 71 29 3b 0d 09 09 09 |Above(v,| q);....|
|000021c0| 09 63 2e 53 65 74 53 69 | 6e 67 6c 65 74 6f 6e 28 |.c.SetSi|ngleton(|
|000021d0| 76 29 0d 09 09 09 45 4e | 44 0d 09 09 45 4e 44 0d |v)....EN|D...END.|
|000021e0| 09 45 4e 44 20 53 65 74 | 41 73 4c 61 73 74 3b 0d |.END Set|AsLast;.|
|000021f0| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 49 6e 73 65 |..PROCED|URE Inse|
|00002200| 72 74 41 72 6f 75 6e 64 | 2a 3b 0d 09 28 2a 2a 20 |rtAround|*;..(** |
|00002210| 67 75 61 72 64 3a 20 53 | 65 6c 65 63 74 69 6f 6e |guard: S|election|
|00002220| 47 75 61 72 64 20 2a 2a | 29 0d 09 09 43 4f 4e 53 |Guard **|)...CONS|
|00002230| 54 20 64 20 3d 20 32 20 | 2a 20 50 6f 72 74 73 2e |T d = 2 |* Ports.|
|00002240| 6d 6d 3b 0d 09 09 56 41 | 52 20 63 3a 20 46 6f 72 |mm;...VA|R c: For|
|00002250| 6d 43 6f 6e 74 72 6f 6c | 6c 65 72 73 2e 43 6f 6e |mControl|lers.Con|
|00002260| 74 72 6f 6c 6c 65 72 3b | 20 76 3a 20 56 69 65 77 |troller;| v: View|
|00002270| 73 2e 56 69 65 77 3b 20 | 72 3a 20 46 6f 72 6d 4d |s.View; |r: FormM|
|00002280| 6f 64 65 6c 73 2e 52 65 | 61 64 65 72 3b 20 62 6c |odels.Re|ader; bl|
|00002290| 2c 20 62 74 2c 20 62 72 | 2c 20 62 62 3a 20 4c 4f |, bt, br|, bb: LO|
|000022a0| 4e 47 49 4e 54 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |NGINT;..|BEGIN...|
|000022b0| 41 53 53 45 52 54 28 56 | 69 65 77 73 2e 41 76 61 |ASSERT(V|iews.Ava|
|000022c0| 69 6c 61 62 6c 65 28 29 | 20 3d 20 31 2c 20 32 30 |ilable()| = 1, 20|
|000022d0| 29 3b 0d 09 09 63 20 3a | 3d 20 46 6f 72 6d 43 6f |);...c :|= FormCo|
|000022e0| 6e 74 72 6f 6c 6c 65 72 | 73 2e 46 6f 63 75 73 28 |ntroller|s.Focus(|
|000022f0| 29 3b 0d 09 09 49 46 20 | 28 63 20 23 20 4e 49 4c |);...IF |(c # NIL|
|00002300| 29 20 26 20 63 2e 48 61 | 73 53 65 6c 65 63 74 69 |) & c.Ha|sSelecti|
|00002310| 6f 6e 28 29 20 54 48 45 | 4e 0d 09 09 09 62 6c 20 |on() THE|N....bl |
|00002320| 3a 3d 20 4d 41 58 28 4c | 4f 4e 47 49 4e 54 29 3b |:= MAX(L|ONGINT);|
|00002330| 20 62 74 20 3a 3d 20 4d | 41 58 28 4c 4f 4e 47 49 | bt := M|AX(LONGI|
|00002340| 4e 54 29 3b 20 62 72 20 | 3a 3d 20 4d 49 4e 28 4c |NT); br |:= MIN(L|
|00002350| 4f 4e 47 49 4e 54 29 3b | 20 62 62 20 3a 3d 20 4d |ONGINT);| bb := M|
|00002360| 49 4e 28 4c 4f 4e 47 49 | 4e 54 29 3b 0d 09 09 09 |IN(LONGI|NT);....|
|00002370| 72 20 3a 3d 20 63 2e 66 | 6f 72 6d 2e 4e 65 77 52 |r := c.f|orm.NewR|
|00002380| 65 61 64 65 72 28 4e 49 | 4c 29 3b 20 72 2e 53 65 |eader(NI|L); r.Se|
|00002390| 74 28 4e 49 4c 29 3b 20 | 72 2e 52 65 61 64 56 69 |t(NIL); |r.ReadVi|
|000023a0| 65 77 28 76 29 3b 0d 09 | 09 09 57 48 49 4c 45 20 |ew(v);..|..WHILE |
|000023b0| 76 20 23 20 4e 49 4c 20 | 44 4f 0d 09 09 09 09 49 |v # NIL |DO.....I|
|000023c0| 46 20 63 2e 49 73 53 65 | 6c 65 63 74 65 64 28 76 |F c.IsSe|lected(v|
|000023d0| 29 20 54 48 45 4e 0d 09 | 09 09 09 09 49 46 20 72 |) THEN..|....IF r|
|000023e0| 2e 6c 20 3c 20 62 6c 20 | 54 48 45 4e 20 62 6c 20 |.l < bl |THEN bl |
|000023f0| 3a 3d 20 72 2e 6c 20 45 | 4e 44 3b 0d 09 09 09 09 |:= r.l E|ND;.....|
|00002400| 09 49 46 20 72 2e 74 20 | 3c 20 62 74 20 54 48 45 |.IF r.t |< bt THE|
|00002410| 4e 20 62 74 20 3a 3d 20 | 72 2e 74 20 45 4e 44 3b |N bt := |r.t END;|
|00002420| 0d 09 09 09 09 09 49 46 | 20 72 2e 72 20 3e 20 62 |......IF| r.r > b|
|00002430| 72 20 54 48 45 4e 20 62 | 72 20 3a 3d 20 72 2e 72 |r THEN b|r := r.r|
|00002440| 20 45 4e 44 3b 0d 09 09 | 09 09 09 49 46 20 72 2e | END;...|...IF r.|
|00002450| 62 20 3e 20 62 62 20 54 | 48 45 4e 20 62 62 20 3a |b > bb T|HEN bb :|
|00002460| 3d 20 72 2e 62 20 45 4e | 44 0d 09 09 09 09 45 4e |= r.b EN|D.....EN|
|00002470| 44 3b 0d 09 09 09 09 72 | 2e 52 65 61 64 56 69 65 |D;.....r|.ReadVie|
|00002480| 77 28 76 29 0d 09 09 09 | 45 4e 44 3b 0d 09 09 09 |w(v)....|END;....|
|00002490| 41 53 53 45 52 54 28 62 | 6c 20 3c 20 62 72 2c 20 |ASSERT(b|l < br, |
|000024a0| 31 30 30 29 3b 0d 09 09 | 09 44 45 43 28 62 6c 2c |100);...|.DEC(bl,|
|000024b0| 20 64 29 3b 20 44 45 43 | 28 62 74 2c 20 33 20 2a | d); DEC|(bt, 3 *|
|000024c0| 20 64 29 3b 20 49 4e 43 | 28 62 72 2c 20 64 29 3b | d); INC|(br, d);|
|000024d0| 20 49 4e 43 28 62 62 2c | 20 64 29 3b 0d 09 09 09 | INC(bb,| d);....|
|000024e0| 56 69 65 77 73 2e 46 65 | 74 63 68 28 76 29 3b 0d |Views.Fe|tch(v);.|
|000024f0| 09 09 09 63 2e 66 6f 72 | 6d 2e 49 6e 73 65 72 74 |...c.for|m.Insert|
|00002500| 28 76 2c 20 62 6c 2c 20 | 62 74 2c 20 62 72 2c 20 |(v, bl, |bt, br, |
|00002510| 62 62 29 3b 0d 09 09 09 | 63 2e 66 6f 72 6d 2e 50 |bb);....|c.form.P|
|00002520| 75 74 41 62 6f 76 65 28 | 76 2c 20 4e 49 4c 29 3b |utAbove(|v, NIL);|
|00002530| 0d 09 09 09 63 2e 53 65 | 74 53 69 6e 67 6c 65 74 |....c.Se|tSinglet|
|00002540| 6f 6e 28 76 29 0d 09 09 | 45 4c 53 45 0d 09 09 09 |on(v)...|ELSE....|
|00002550| 53 74 64 43 6d 64 73 2e | 50 61 73 74 65 56 69 65 |StdCmds.|PasteVie|
|00002560| 77 0d 09 09 45 4e 44 0d | 09 45 4e 44 20 49 6e 73 |w...END.|.END Ins|
|00002570| 65 72 74 41 72 6f 75 6e | 64 3b 0d 0d 0d 09 28 2a |ertAroun|d;....(*|
|00002580| 2a 20 73 74 61 6e 64 61 | 72 64 20 66 6f 72 6d 2d |* standa|rd form-|
|00002590| 72 65 6c 61 74 65 64 20 | 67 75 61 72 64 73 20 2a |related |guards *|
|000025a0| 2a 29 0d 0d 09 50 52 4f | 43 45 44 55 52 45 20 46 |*)...PRO|CEDURE F|
|000025b0| 6f 63 75 73 47 75 61 72 | 64 2a 20 28 56 41 52 20 |ocusGuar|d* (VAR |
|000025c0| 70 61 72 3a 20 44 69 61 | 6c 6f 67 2e 50 61 72 29 |par: Dia|log.Par)|
|000025d0| 3b 0d 09 28 2a 2a 20 69 | 6e 20 6e 6f 6e 2d 46 6f |;..(** i|n non-Fo|
|000025e0| 72 6d 56 69 65 77 20 6d | 65 6e 75 73 3b 20 6f 74 |rmView m|enus; ot|
|000025f0| 68 65 72 77 69 73 65 20 | 69 6d 70 6c 69 65 64 20 |herwise |implied |
|00002600| 62 79 20 6d 65 6e 75 20 | 74 79 70 65 20 2a 2a 29 |by menu |type **)|
|00002610| 0d 09 42 45 47 49 4e 0d | 09 09 49 46 20 46 6f 72 |..BEGIN.|..IF For|
|00002620| 6d 56 69 65 77 73 2e 46 | 6f 63 75 73 28 29 20 3d |mViews.F|ocus() =|
|00002630| 20 4e 49 4c 20 54 48 45 | 4e 20 70 61 72 2e 64 69 | NIL THE|N par.di|
|00002640| 73 61 62 6c 65 64 20 3a | 3d 20 54 52 55 45 20 45 |sabled :|= TRUE E|
|00002650| 4e 44 0d 09 45 4e 44 20 | 46 6f 63 75 73 47 75 61 |ND..END |FocusGua|
|00002660| 72 64 3b 0d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |rd;...PR|OCEDURE |
|00002670| 53 65 6c 65 63 74 69 6f | 6e 47 75 61 72 64 2a 20 |Selectio|nGuard* |
|00002680| 28 56 41 52 20 70 61 72 | 3a 20 44 69 61 6c 6f 67 |(VAR par|: Dialog|
|00002690| 2e 50 61 72 29 3b 0d 09 | 28 2a 2a 20 69 6e 20 6e |.Par);..|(** in n|
|000026a0| 6f 6e 2d 46 6f 72 6d 56 | 69 65 77 20 6d 65 6e 75 |on-FormV|iew menu|
|000026b0| 73 3b 20 6f 74 68 65 72 | 77 69 73 65 20 75 73 65 |s; other|wise use|
|000026c0| 20 22 53 65 6c 65 63 74 | 69 6f 6e 47 75 61 72 64 | "Select|ionGuard|
|000026d0| 22 20 2a 2a 29 0d 09 09 | 56 41 52 20 63 3a 20 46 |" **)...|VAR c: F|
|000026e0| 6f 72 6d 43 6f 6e 74 72 | 6f 6c 6c 65 72 73 2e 43 |ormContr|ollers.C|
|000026f0| 6f 6e 74 72 6f 6c 6c 65 | 72 3b 0d 09 42 45 47 49 |ontrolle|r;..BEGI|
|00002700| 4e 0d 09 09 63 20 3a 3d | 20 46 6f 72 6d 43 6f 6e |N...c :=| FormCon|
|00002710| 74 72 6f 6c 6c 65 72 73 | 2e 46 6f 63 75 73 28 29 |trollers|.Focus()|
|00002720| 3b 0d 09 09 49 46 20 28 | 63 20 3d 20 4e 49 4c 29 |;...IF (|c = NIL)|
|00002730| 20 4f 52 20 7e 63 2e 48 | 61 73 53 65 6c 65 63 74 | OR ~c.H|asSelect|
|00002740| 69 6f 6e 28 29 20 54 48 | 45 4e 20 70 61 72 2e 64 |ion() TH|EN par.d|
|00002750| 69 73 61 62 6c 65 64 20 | 3a 3d 20 54 52 55 45 20 |isabled |:= TRUE |
|00002760| 45 4e 44 0d 09 45 4e 44 | 20 53 65 6c 65 63 74 69 |END..END| Selecti|
|00002770| 6f 6e 47 75 61 72 64 3b | 0d 0d 09 50 52 4f 43 45 |onGuard;|...PROCE|
|00002780| 44 55 52 45 20 53 69 6e | 67 6c 65 74 6f 6e 47 75 |DURE Sin|gletonGu|
|00002790| 61 72 64 2a 20 28 56 41 | 52 20 70 61 72 3a 20 44 |ard* (VA|R par: D|
|000027a0| 69 61 6c 6f 67 2e 50 61 | 72 29 3b 0d 09 28 2a 2a |ialog.Pa|r);..(**|
|000027b0| 20 69 6e 20 6e 6f 6e 2d | 46 6f 72 6d 56 69 65 77 | in non-|FormView|
|000027c0| 20 6d 65 6e 75 73 3b 20 | 6f 74 68 65 72 77 69 73 | menus; |otherwis|
|000027d0| 65 20 75 73 65 20 22 53 | 69 6e 67 6c 65 74 6f 6e |e use "S|ingleton|
|000027e0| 47 75 61 72 64 22 20 2a | 2a 29 0d 09 09 56 41 52 |Guard" *|*)...VAR|
|000027f0| 20 63 3a 20 46 6f 72 6d | 43 6f 6e 74 72 6f 6c 6c | c: Form|Controll|
|00002800| 65 72 73 2e 43 6f 6e 74 | 72 6f 6c 6c 65 72 3b 0d |ers.Cont|roller;.|
|00002810| 09 42 45 47 49 4e 0d 09 | 09 63 20 3a 3d 20 46 6f |.BEGIN..|.c := Fo|
|00002820| 72 6d 43 6f 6e 74 72 6f | 6c 6c 65 72 73 2e 46 6f |rmContro|llers.Fo|
|00002830| 63 75 73 28 29 3b 0d 09 | 09 49 46 20 28 63 20 3d |cus();..|.IF (c =|
|00002840| 20 4e 49 4c 29 20 4f 52 | 20 28 63 2e 53 69 6e 67 | NIL) OR| (c.Sing|
|00002850| 6c 65 74 6f 6e 28 29 20 | 3d 20 4e 49 4c 29 20 54 |leton() |= NIL) T|
|00002860| 48 45 4e 20 70 61 72 2e | 64 69 73 61 62 6c 65 64 |HEN par.|disabled|
|00002870| 20 3a 3d 20 54 52 55 45 | 20 45 4e 44 0d 09 45 4e | := TRUE| END..EN|
|00002880| 44 20 53 69 6e 67 6c 65 | 74 6f 6e 47 75 61 72 64 |D Single|tonGuard|
|00002890| 3b 0d 0d 45 4e 44 20 46 | 6f 72 6d 43 6d 64 73 2e |;..END F|ormCmds.|
|000028a0| 0d 82 f1 54 65 78 74 43 | 6f 6e 74 72 6f 6c 6c 65 |...TextC|ontrolle|
|000028b0| 72 73 2e 53 74 64 43 74 | 72 6c 44 65 73 63 00 f1 |rs.StdCt|rlDesc..|
|000028c0| 54 65 78 74 43 6f 6e 74 | 72 6f 6c 6c 65 72 73 2e |TextCont|rollers.|
|000028d0| 43 6f 6e 74 72 6f 6c 6c | 65 72 44 65 73 63 00 f1 |Controll|erDesc..|
|000028e0| 43 6f 6e 74 61 69 6e 65 | 72 73 2e 43 6f 6e 74 72 |Containe|rs.Contr|
|000028f0| 6f 6c 6c 65 72 44 65 73 | 63 00 f1 43 6f 6e 74 72 |ollerDes|c..Contr|
|00002900| 6f 6c 6c 65 72 73 2e 43 | 6f 6e 74 72 6f 6c 6c 65 |ollers.C|ontrolle|
|00002910| 72 44 65 73 63 00 f2 04 | 00 00 00 00 00 00 00 14 |rDesc...|........|
|00002920| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00002930| 00 00 00 00 00 00 01 82 | f1 54 65 78 74 52 75 6c |........|.TextRul|
|00002940| 65 72 73 2e 53 74 64 52 | 75 6c 65 72 44 65 73 63 |ers.StdR|ulerDesc|
|00002950| 00 f1 54 65 78 74 52 75 | 6c 65 72 73 2e 52 75 6c |..TextRu|lers.Rul|
|00002960| 65 72 44 65 73 63 00 f2 | 03 00 00 00 00 00 00 00 |erDesc..|........|
|00002970| ab 00 00 00 07 00 00 00 | a3 00 00 00 00 00 00 83 |........|........|
|00002980| f1 54 65 78 74 52 75 6c | 65 72 73 2e 53 74 64 53 |.TextRul|ers.StdS|
|00002990| 74 79 6c 65 44 65 73 63 | 00 f1 54 65 78 74 52 75 |tyleDesc|..TextRu|
|000029a0| 6c 65 72 73 2e 53 74 79 | 6c 65 44 65 73 63 00 f2 |lers.Sty|leDesc..|
|000029b0| 07 00 00 00 00 00 00 00 | 00 00 00 00 08 00 00 00 |........|........|
|000029c0| 5a 00 00 00 00 00 00 00 | 82 f1 54 65 78 74 52 75 |Z.......|..TextRu|
|000029d0| 6c 65 72 73 2e 41 74 74 | 72 69 62 75 74 65 73 44 |lers.Att|ributesD|
|000029e0| 65 73 63 00 f2 04 00 00 | 00 00 00 00 00 00 00 00 |esc.....|........|
|000029f0| 00 00 00 00 00 24 00 00 | 00 00 01 00 00 00 00 00 |.....$..|........|
|00002a00| 00 00 00 20 a3 5a 00 00 | 00 00 00 18 f0 01 00 38 |... .Z..|.......8|
|00002a10| 63 00 00 01 00 00 00 01 | 00 00 00 00 00 00 00 82 |c.......|........|
|00002a20| f2 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a30| 00 1e 00 00 00 00 00 00 | 00 00 00 00 00 00 00 41 |........|.......A|
|00002a40| 72 69 61 6c 00 7c be 01 | 00 00 00 00 00 90 01 00 |rial.|..|........|
|00002a50| 00 00 00 00 00 00 00 00 | 00 00 00 e0 8c 01 00 e0 |........|........|
|00002a60| 8c 01 00 00 30 5c 00 e0 | b9 3b 3e 82 f1 44 6f 63 |....0\..|.;>..Doc|
|00002a70| 75 6d 65 6e 74 73 2e 43 | 6f 6e 74 72 6f 6c 6c 65 |uments.C|ontrolle|
|00002a80| 72 44 65 73 63 00 f2 11 | 00 00 00 00 00 00 00 00 |rDesc...|........|
|00002a90| 00 00 00 00 00 00 00 08 | 00 00 00 00 00 00 00 00 |........|........|
|00002aa0| 09 00 00 00 00 68 63 73 | 00 38 1b a3 00 80 fc 0a |.....hcs|.8......|
|00002ab0| 00 80 fc 0a 00 e8 66 68 | 00 29 a0 97 00 00 00 00 |......fh|.)......|
|00002ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b00| 00 00 01 00 00 00 01 0c | 00 00 00 0c 00 00 00 32 |........|.......2|
|00002b10| 00 01 df 77 06 4b 65 72 | 6e 65 6c 4b 02 00 00 00 |...w.Ker|nelK....|
|00002b20| 6f 53 59 4d 6f 62 6e 46 | 00 00 c7 80 c8 40 00 00 |oSYMobnF|.....@..|
|00002b30| 04 43 6d 64 73 66 02 00 | 00 00 50 61 72 74 53 49 |.Cmdsf..|..PartSI|
|00002b40| 54 21 00 00 00 00 00 00 | 00 00 00 00 47 67 00 00 |T!......|....Gg..|
|00002b50| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00002b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b70| 00 00 ae 04 81 74 00 00 | 00 00 00 00 01 3e 00 00 |.....t..|.....>..|
|00002b80| 00 00 06 00 00 01 df 7b | 00 53 03 00 00 00 00 00 |.......{|.S......|
|00002b90| 00 00 00 00 00 01 dc 24 | 06 53 79 73 74 65 6d 00 |.......$|.System.|
|00002ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bb0| 00 00 00 00 00 00 00 00 | 0a 00 00 01 df 7b 04 43 |........|.....{.C|
|00002bc0| 6f 64 65 7b 01 00 00 00 | 00 20 00 01 df 7c ac 05 |ode{....|. ...|..|
|00002bd0| ca e1 ad 41 19 85 00 00 | 00 00 00 29 00 03 00 b6 |...A....|...)....|
|00002be0| 00 c6 01 00 00 00 00 00 | 02 00 00 00 00 00 00 00 |........|........|
|00002bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c00| 00 00 00 08 00 29 00 67 | 01 d2 02 69 00 00 01 00 |.....).g|...i....|
|00002c10| 00 00 01 0c 00 00 00 0c | 00 00 00 32 01 29 fc 18 |........|...2.)..|
|00002c20| 17 24 00 00 00 1c 00 32 | 00 00 57 4e 53 50 00 00 |.$.....2|..WNSP..|
|00002c30| 00 0a 00 01 ff ff 00 00 | 00 00 01 29 ff 44 00 00 |........|...).D..|
|00002c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+